home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / 2.01 sources / Library-2.01 / Interfaces / ENET.lisp < prev    next >
Encoding:
Text File  |  1993-09-16  |  4.1 KB  |  122 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :traps)             ; 
  3. ; Created: Thursday, October 4, 1990 at 8:00 AM
  4. ;     ENET.p
  5. ;     Pascal Interface to the Macintosh Libraries
  6. ; 
  7. ;     Copyright Apple Computer, Inc. 1989-1990
  8. ;     All rights reserved
  9. ; 
  10.  
  11. ;;;;;;;;;;;;;
  12. ;
  13. ; Modification History
  14. ;
  15. ; 04/28/93 mwp Release
  16. ; 08/10/92 bill thepbptr -> pb in all traps
  17.  
  18. ; $IFC UNDEFINED UsingIncludes
  19. ; $SETC UsingIncludes := 0
  20. ; $ENDC
  21.  
  22. ; $IFC NOT UsingIncludes
  23.  
  24. ; $ENDC
  25.  
  26. ; $IFC UNDEFINED UsingENET
  27. ; $SETC UsingENET := 1
  28.  
  29. ; $I+
  30. ; $SETC ENETIncludes := UsingIncludes
  31. ; $SETC UsingIncludes := 1
  32. ; $IFC UNDEFINED UsingTypes
  33.  
  34. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  35. ; $ENDC
  36. ; $IFC UNDEFINED UsingOSUtils
  37.  
  38. (require-interface 'OSUTILS)    ; $I $$Shell(PInterfaces)OSUtils.p
  39. ; $ENDC
  40. ; $SETC UsingIncludes := ENETIncludes
  41.  
  42. (defconstant $ENetSetGeneral 253); Set "general" mode
  43. (defconstant $ENetGetInfo 252)  ; Get info
  44. (defconstant $ENetRdCancel 251) ; Cancel read
  45. (defconstant $ENetRead 250)     ; Read
  46. (defconstant $ENetWrite 249)    ; Write
  47. (defconstant $ENetDetachPH 248) ; Detach protocol handler
  48. (defconstant $ENetAttachPH 247) ; Attach protocol handler
  49. (defconstant $ENetAddMulti 246) ; Add a multicast address
  50. (defconstant $ENetDelMulti 245) ; Delete a multicast address
  51.  
  52. (defconstant $eLenErr -92)      ; Length error ddpLenErr
  53. (defconstant $eMultiErr -91)    ; Multicast address error ddpSktErr
  54.  
  55. (defconstant $EAddrRType :|eadr|); Alternate address resource type
  56.  
  57. (def-mactype :eparamblkptr (find-mactype :pointer))
  58. (defrecord EParamBlock 
  59.    (qLink (:pointer :qelem))    ; next queue entry
  60.    (qType :signed-integer)      ; queue type
  61.    (ioTrap :signed-integer)     ; routine trap
  62.    (ioCmdAddr :pointer)         ; routine address
  63.    (ioCompletion :pointer)      ; completion routine
  64.    (ioResult :signed-integer)   ; result code
  65.    (ioNamePtr (:pointer (:string 255))); ->filename
  66.    (ioVRefNum :signed-integer)  ; volume reference or drive number
  67.    (ioRefNum :signed-integer)   ; driver reference number
  68.    (csCode :signed-integer)     ; call command code AUTOMATICALLY set
  69.    (:variant 
  70.  
  71.       ((eProtType :signed-integer); Ethernet protocol type
  72.       (ePointer :pointer)
  73.       (eBuffSize :signed-integer); buffer size
  74.       (eDataSize :signed-integer)); number of bytes read
  75.  
  76.       ((eMultiAddr (:array :character 6))); Multicast Address
  77.       ))
  78.  
  79.  
  80.  
  81. (deftrap _ewrite ((pb (:pointer :eparamblock)) (async :boolean))
  82.    (:d0 :signed-integer)
  83.    (:register-trap #xA004 :a0 (progn (setf (ccl:rref pb :eparamblock.cscode) 249) pb)))
  84.  
  85. (deftrap _eattachph ((pb (:pointer :eparamblock)) (async :boolean))
  86.    (:d0 :signed-integer)
  87.    (:register-trap #xA004 :a0 (progn (setf (ccl:rref pb :eparamblock.cscode) 247) pb)))
  88.  
  89. (deftrap _edetachph ((pb (:pointer :eparamblock)) (async :boolean))
  90.    (:d0 :signed-integer)
  91.    (:register-trap #xA004 :a0 (progn (setf (ccl:rref pb :eparamblock.cscode) 248) pb)))
  92.  
  93. (deftrap _eread ((pb (:pointer :eparamblock)) (async :boolean))
  94.    (:d0 :signed-integer)
  95.    (:register-trap #xA004 :a0 (progn (setf (ccl:rref pb :eparamblock.cscode) 250) pb)))
  96.  
  97. (deftrap _erdcancel ((pb (:pointer :eparamblock)) (async :boolean))
  98.    (:d0 :signed-integer)
  99.    (:register-trap #xA004 :a0 (progn (setf (ccl:rref pb :eparamblock.cscode) 251) pb)))
  100.  
  101. (deftrap _egetinfo ((pb (:pointer :eparamblock)) (async :boolean))
  102.    (:d0 :signed-integer)
  103.    (:register-trap #xA004 :a0 (progn (setf (ccl:rref pb :eparamblock.cscode) 252) pb)))
  104.  
  105. (deftrap _esetgeneral ((pb (:pointer :eparamblock)) (async :boolean))
  106.    (:d0 :signed-integer)
  107.    (:register-trap #xA004 :a0 (progn (setf (ccl:rref pb :eparamblock.cscode) 253) pb)))
  108.  
  109. (deftrap _eaddmulti ((pb (:pointer :eparamblock)) (async :boolean))
  110.    (:d0 :signed-integer)
  111.    (:register-trap #xA004 :a0 (progn (setf (ccl:rref pb :eparamblock.cscode) 246) pb)))
  112.  
  113. (deftrap _edelmulti ((pb (:pointer :eparamblock)) (async :boolean))
  114.    (:d0 :signed-integer)
  115.    (:register-trap #xA004 :a0 (progn (setf (ccl:rref pb :eparamblock.cscode) 245) pb)))
  116. ; $ENDC
  117.  
  118.  
  119. (export '($eaddrrtype $emultierr $elenerr $enetdelmulti $enetaddmulti
  120.           $enetattachph $enetdetachph $enetwrite $enetread $enetrdcancel
  121.           $enetgetinfo $enetsetgeneral))
  122. (provide-interface 'ENET)